home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 4 (Reseller) / Apple Ref. & Pres. Lib.v4.0.iso / 6-Apple⁄DEC Alliance / Animation & Demonstrations / DEC LanWorks Animation / Router / Router.rsrc / BITD_1103 (.txt) < prev    next >
AmigaBASIC Source Code  |  1990-04-16  |  2KB  |  312 lines
  1.                                                                                                                                                        GOTOIFGOTOIFGOTOIF                                                                                                                                                       <0xc00,0x00>IFINKEY$IF<0x96,0x01><0x1be16db>INPUTINKEY$INPUTINKEY$INPUTINKEY$INPUTINKEY$<0x96,0xfffffffb>labelffff9b9aINPUT<0x5f>
  2. varffff9a9e<0x96,0x00><0x1be16f1>IFGOTOIFGOTOIFGOTO<0x96,0xfffffffb><0x1be16fa>INKEY$IFINKEY$IFINKEY$IF<0x96,0xfffffffb><0x7d>INKEY$<0x1be1705>INPUTINKEY$INPUTINKEY$INPUTINKEY$LLIST<0x61>
  3. <0x7e>INT<0x1be1712>LETGOTOGOTOIFGOTOIFGOTO\IF<0x1be171c>INKEY$IFINKEY$IFINKEY$IF<0x96,0xfffffffb><0x1be1725>INPUTINKEY$INPUTINKEY$INPUTINKEY$INPUTINKEY$<0x96,0xfffffffb>INPUTINTINPUT<
  4. <0x96,0xfffffffa>
  5. LEFT$<0x7d>INTGOTOGOTOIF<0x7e>GOTO<0x1be1744>IFGOTOIFGOTOIFGOTO<0x96,0xfffffffb><0x1be174d>INKEY$IFINKEY$IFINKEY$IF\INKEY$<0x1be1756>INPUTINKEY$INPUTINKEY$INPUTINKEY$\INPUTTHEN
  6. labelffff9c9eLET<0x7d>INT                                                                                                                                                              GOTOIFGOTOIFGOTO<0x9c,0x01>IFINKEY$IF<0x9c,0x01>labelffff9a99INPUT<0x1be17a4>INKEY$INPUTINKEY$INPUTINKEY$<0x9c,0xfffffffb>
  7. INT<0x7e>INPUT<0x1be17b0>INTINPUTINTINPUTINT>
  8.  
  9. LEFT$<0x7d>LET<0x7c>INT<0x1be17be>LETGOTOIFGOTOIFGOTOIFGOTO<0x9c,0xfffffffb><0x1be17c9>INKEY$IFINKEY$IFINKEY$IF<0x9c,0xfffffffb><0x1be17d2>INPUTINKEY$INPUTINKEY$INPUTINKEY$XORINPUT
  10. INT-
  11. <0x7e>
  12.  
  13. LEFT$<0x7d>LET<0x9c,0x00>varffff9e97<0x7e>IF
  14. GOTO<0x9c,0x00>IFINKEY$IF<0x9c,0x01><0x1be17f7>INPUTINKEY$INPUTINKEY$INPUTINKEY$INPUTINKEY$<0x9c,0xfffffffb>
  15. INT<0x7e>INPUT<0x1be1806>INTINPUTINTINPUTINTINPUT-
  16.  
  17. LEFT$<0x9c,0xfffffffb><0x7c>INT<0x1be1815>LETGOTOIFGOTOIFGOTOIFGOTO<0x9c,0xfffffffb><0x1be1820>INKEY$IFINKEY$IFINKEY$IF<0x9c,0xfffffffb><0x1be1829>INKEY$INKEY$INPUT                                                                                                                                                         INPUTINKEY$XORINPUTvarffff9b9a/
  18.  
  19. LEFT$MERGE<0x7c>INTvarffff9e9e<0x98,0x00>IFINKEY$IF<0x98,0x01><0x1be187d>INPUTINKEY$INPUTINKEY$INPUTINKEY$INPUTINKEY$<0x98,0xfffffffb><0x1be1888>INTINPUTINTINPUTINTINPUTINTINPUTINTINPUTINTINPUT<0x7e>INTAND
  20.  
  21. LEFT$\LET<0x98,0x00>labelffff9e98GOTO<0x98,0x00><0x1be18a5>INKEY$IFINKEY$IFINKEY$IF\INKEY$<0x1be18ae>INPUTINKEY$INPUTINKEY$INPUTINKEY$\INPUT
  22. INT<0x7e>INPUT<0x1be18bb>INTINPUTINTINPUTINTINPUTINTXOR
  23.  
  24. LEFT$EQVLET<0x7c>INT
  25. LET<0x7d>IF<0x1be18cf>INKEY$IFINKEY$IFINKEY$IFINKEY$IF<0x98,0xfffffffb><0x1be18da>INPUTINKEY$INPUTINKEY$INPUTMODINPUT<0x1be18e2>INTINPUTINTINPUTINTINPUTINTINPUTINTINPUTINTINPUT<0x7e>INT
  26. INPUTMOD
  27.  
  28. INPUTORLET LETLET<0x99,0x00><0x1be1936>INKEY$IFINKEY$IFINKEY$IF<0x99,0xfffffffb><0x1be193f>INPUTINKEY$INPUTINKEY$INPUTINKEY$INPUTINKEY$\INPUT
  29. INT<0x7e>INPUT<0x1be194e>INTINPUTINTINPUTINTINPUTINTINPUT\
  30.  
  31. INPUT<0x7d>LET<0x99,0x00>
  32. INT<0x7e>LET<0x99,0x00>
  33. LET<0x7e>IFIFINKEY$IF<0x99,0x00><0x1be1970>INPUTINKEY$INPUTINKEY$INPUTINKEY$INPUTINKEY$<0x99,0xfffffffb><0x1be197b>INTINPUTINTINPUTINTINPUTINTINPUTINTINPUTINTINPUT<0x7e>INT
  34. INPUT<0x7c>INT<0x99,0x00>varffff9a9aANDLET<0x99,0x00>
  35. LET<0x7e>IF<0x1be199b>INKEY$IFINKEY$IFINKEY$IF\INKEY$INKEY$INPUTINKEY$varffff9a99XORINPUT&H9b9aINTINPUTINTINPUTINTINPUTINTINPUTINTINPUTINT<0x99,0x00><0x7e>INPUTMERGE
  36. INT<0x99,0x00><0x7c>INT<0x1be19c8>LET                                                                                                                                                        INKEY$IFINKEY$IF<0x97,0x00><0x1be1a08>INPUTINKEY$INPUTINKEY$INPUTINKEY$\INPUT<0x1be1a11>INTINPUTINTINPUTINTINPUTINTINPUTINTINPUTINTINPUT<0x7e>INT
  37. INPUT<0x97,0x00><0x7c>
  38. <0x7d>INPUT<0x7e>LETXORLET<0x7c>INT<0x1be1a2e>LETLETIFIFINKEY$IFINKEY$IFINKEY$IF<0x97,0xfffffffb>
  39. INPUT<0x7e>INKEY$<0x1be1a3f>INPUTINKEY$INPUTINKEY$INPUTINKEY$XORINPUT<0x1be1a48>INTINPUTINTINPUTINTINPUTINTINPUTINTINPUT<0x7e>INT
  40. INPUT<0x7d>
  41. <0x7c>INPUT<0x97,0x00>
  42. INT\LET<0x7c>INT=GOSUB<0x62>GOSUB<0x7e>
  43. <0x97,0x00><0x7d>LET
  44. INTIMPLET<0x7d>INT<0x4b>GOSUB<0x7e>
  45. <0x97,0x00><0x7f>LETvarffff9e9bXORLETvarffff9b9b<0x4b>GOSUB<0x7e>
  46. <0x97,0x00>varffff9e9bXORLETlabelffff979bINT'GOSUBUSINGGOSUB<0x7e>
  47.                                                                                                                                                                                                                                                    LETlabelffff9696INT<0x4a>GOSUB<0x7e>
  48. <0x98,0x00>labelffff9b9aLETIMPLETlabelffff9696INT<0x4a>GOSUB<0x7e>
  49. <0x98,0x00>labelffff9b9aINPUTMODLET<0x7e>GOSUB
  50. INTTOGOSUBTHENGOSUBvar0000LLIST
  51. INT<0x7e>INPUT\LET<0x7e>GOSUB
  52. INT<0x4a>GOSUBvar0000LLIST
  53. INT<0x7d>INPUT<0x98,0x00><0x7d>GOSUB
  54. INT<0x4b>GOSUB<0x7e>
  55. LLIST
  56. INT<0x7c>INPUT<0x98,0x00><0x7d>GOSUB
  57. INTSTATICGOSUB>GOSUB<0x7e>
  58. LLIST
  59. INT<0x98,0x00><0x7c>LET<0x7c>GOSUB
  60. INT<0x4b>GOSUB<0x7e>
  61. LLIST
  62. INT<0x98,0x00>
  63. INPUT<0x7d>LET<0x7c>GOSUB
  64. INT<0x4b>GOSUB<0x7e>
  65. <0x98,0x00>varffff9b9b<0x98,0x00>varffff9e9e<0x7c>GOSUB
  66. LEFT$<0x60>GOSUB<GOSUB<0x7e>
  67. <0x98,0x00>                                                                                                                                                                                                                                                       INPUT
  68. LET<0x7c>GOSUB
  69. LEFT$<0x4a>GOSUB<0x7e>
  70. <0x99,0x00>
  71. INTLLIST
  72. INPUT<0x99,0x01>
  73. LEFT$<0x4a>GOSUB<0x7e>
  74. <0x99,0x00>
  75. INT\INPUT<0x99,0x01>
  76. LEFT$<0x5e>GOSUB*GOSUB<0x7d>
  77. <0x99,0x00>
  78. INT\INPUT<0x99,0x01>
  79. LEFT$<0x4b>GOSUB<0x7d>
  80. <0x99,0x00>
  81. INT\INPUT
  82. GOSUB<0x7c>GOSUB
  83. LEFT$<0x4b>GOSUB<0x7e>
  84. LLIST
  85. INT\INPUT<0x99,0x00>
  86. LEFT$<0x5c>GOSUB^GOSUB<0x7e>
  87. LLIST
  88. INT\INPUT<0x99,0x00>
  89. LEFT$<0x4b>GOSUB<0x7e>
  90. LLIST
  91. INT\INPUT<0x7e>GOSUBlabelffff9696LEFT$<0x4a>GOSUB<0x7e>
  92. LLIST
  93. INT\INPUT<0x7c>GOSUB
  94. LEFT$<0x59>GOSUBORGOSUB<0x7e>
  95. LLIST
  96. INT\INPUT<0x7c>GOSUB
  97. LEFT$<0x4a>GOSUB<0x7e>
  98. LLIST
  99.                                                                                                                                                           <0xc00,0x00>
  100. LEFT$<0x4b>GOSUB<0x7d>
  101. LLIST
  102. INTLLIST<0xf6,0x00>
  103. LEFT$<0x57>GOSUBIMPGOSUB<0x7d>
  104. LLIST
  105. INTLLIST<0xf6,0x00>
  106. LEFT$<0x4b>GOSUB<0x7d>
  107. <0xf6,0x00>
  108. INT\INPUT<0xf6,0x01>varffff9c96<0x4c>GOSUB<0x7d>
  109. <0xf6,0x00>
  110. INT\INPUT<0xf6,0x01>
  111. LEFT$<0x55>GOSUB\GOSUB<0x7e>
  112. LLIST
  113. INT\INPUT<0xf6,0x00>
  114. LEFT$<0x4b>GOSUB<0x7e>
  115. LLIST
  116. INT\INPUT<0x7c>GOSUB
  117. LEFT$<0x7d>GOSUB<0x4e>GOSUB<0x7e>
  118. LLIST
  119. INT\INPUT<0x7c>GOSUB
  120. LEFT$<0x52>GOSUBOBJECT.CLOSE<0x7d>
  121. LLIST
  122. INT\INPUT<0x7c>GOSUB
  123. LEFT$<0x4b>GOSUB<0x7d>
  124. LLIST
  125. INTLLIST<0xf6,0x00>
  126. LEFT$<0xf6,0x01><0x51>GOSUB<0x7d>
  127. LLIST
  128. INTLLIST<0xf6,0x00>
  129. LEFT$<0x50>GOSUB<0x7c>GOSUB<0x7d>
  130. LLIST
  131. INTLLIST<0xf6,0x00>
  132. LEFT$<0x4b>GOSUB<0x7d>
  133. LLIST
  134. INTLLIST<0xf6,0x00>
  135. LEFT$<0xf6,0x01><0x53>GOSUB<0x7d>
  136. LLIST
  137. INTLLIST<0xf6,0x00>
  138. LEFT$<0x4e>GOSUB<0x7e>GOSUB<0x7d>
  139. LLIST
  140. INTLLIST<0x7c>GOSUB
  141. LEFT$<0x4b>GOSUB<0x7c>
  142. <0xf6,0x00>varffff9b9bLLIST<0x7c>GOSUB
  143. LEFT$MODGOSUB<0x56>GOSUB<0x7c>
  144. <0xf6,0x00>varffff9b9bLLISTLEFT$<0x4b>GOSUB<0x94,0x00><0x94,0x01>
  145. INT\INPUT<0x7c>GOSUB
  146. LEFT$<0x4b>GOSUB<0x94,0x00><0x94,0x01>
  147. INTLLIST<0x94,0x01>
  148. LEFT$EQVGOSUB<0x58>GOSUB<0x94,0x00><0x7c>INPUT
  149. INTLLIST<0x94,0x00>
  150. LEFT$<0x4b>GOSUB<0x7f>
  151. <0x94,0x00><0x7c>INPUT
  152. INTLLIST<0x94,0x00>
  153. LEFT$<0x4b>GOSUB<0x94,0x00><0x7d>INPUT
  154. INTLLIST<0x94,0x00>
  155. LEFT$ORGOSUB<0x5a>GOSUB\
  156. <0x7e>INPUT
  157. INTLLIST<0x7c>GOSUB
  158. LEFT$<0x4a>GOSUB<0x7d>
  159. <0x94,0x00>labelffff9a9aINTLLIST<0x7c>GOSUB
  160. LEFT$<0x4b>GOSUBEQV
  161. varffff9a9bLLIST<0x7c>GOSUB
  162. LEFT$/GOSUB<0x5d>GOSUBXOR
  163. \INPUT<0x7c>GOSUB
  164. LEFT$<0x4b>GOSUB<0x94,0x00><0x94,0x01>\INPUT<0x7c>GOSUB
  165. LEFT$<0x4b>GOSUBOR                                                                                                                                                          <0x1be2d69,0x07>
  166. LEFT$-GOSUB<0x5f>GOSUBAND
  167. <0xf7,0x00><0xf7,0x01>
  168. LEFT$<0x4b>GOSUB<0xf7,0x00><0xf7,0x01><0xf7,0x01><0x7c>GOSUBvarffff9c9c<0x4b>GOSUB/
  169. <0x7c>INPUT<0x7c>GOSUB
  170. LEFT$=GOSUB<0x61>GOSUB*
  171. <0x7d>INPUT<0x7c>GOSUB
  172. LEFT$<0x4a>GOSUBMOD
  173. <0xf7,0x00><0x7e>INPUT<0x7c>GOSUB
  174. LEFT$<0x4b>GOSUB<
  175. varffff9a9a<0x7c>GOSUB
  176. LEFT$'GOSUBUSINGGOSUB=
  177.  
  178. INPUT<0x7c>GOSUB
  179. LEFT$<0x4b>GOSUBXOR
  180. IMP
  181. <0x7e>FN
  182. LEFT$<0x4b>GOSUBTHEN
  183. labelffff9393LEFT$THENGOSUBTHENGOSUBTO
  184. <0x4a>FN^
  185. EQV
  186. <0x4b>FN<0xf7,0x00>
  187.  
  188.  
  189.  
  190.  
  191.  
  192.  
  193.  
  194.  
  195.  
  196.  
  197.  
  198.  
  199.  
  200.  
  201.  
  202.  
  203.  
  204.  
  205.  
  206.  
  207.  
  208.  
  209.  
  210.  
  211.  
  212.  
  213.  
  214.  
  215.  
  216.  
  217.  
  218.  
  219.  
  220.  
  221.  
  222.  
  223.  
  224.  
  225.  
  226.  
  227.  
  228.  
  229.  
  230.  
  231.  
  232.  
  233.  
  234.  
  235.  
  236.  
  237.  
  238.  
  239.  
  240.  
  241.  
  242.  
  243.  
  244.  
  245.  
  246.  
  247.  
  248.  
  249.  
  250.  
  251.  
  252.  
  253.  
  254.  
  255.  
  256.  
  257.  
  258.  
  259.  
  260.  
  261.  
  262.  
  263.  
  264.  
  265.  
  266.  
  267.  
  268.  
  269.  
  270.  
  271.  
  272.  
  273.  
  274.  
  275.  
  276.  
  277.  
  278.  
  279.  
  280.  
  281.  
  282.  
  283.  
  284.  
  285.  
  286.  
  287.  
  288.  
  289.  
  290.  
  291.  
  292.  
  293.  
  294.  
  295.  
  296.  
  297.  
  298.  
  299.  
  300.  
  301.  
  302.  
  303.  
  304.  
  305.  
  306.  
  307.  
  308.  
  309.  
  310.  
  311.  
  312.